home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_n.inc < prev    next >
Encoding:
Text File  |  1998-08-30  |  6.0 KB  |  397 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuò\Ī
  4. *
  5. *    âjâàü[âgâëâï
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. bob_n:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #16,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     move.w    d1,(a6)+
  19.     move.w    d2,(a6)+
  20.     move.w    d7,(a6)+
  21.     move.w    #$0003,(a6)+
  22.  
  23.     addi.w    #16,d1
  24.     addq.w    #1,d7
  25.     move.w    d1,(a6)+
  26.     move.w    d2,(a6)+
  27.     move.w    d7,(a6)+
  28.     move.w    #$0003,(a6)+
  29.  
  30.     subi.w    #16,d1
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     addi.w    #16,d1
  39.     addq.w    #1,d7
  40.     move.w    d1,(a6)+
  41.     move.w    d2,(a6)+
  42.     move.w    d7,(a6)+
  43.     move.w    #$0003,(a6)+
  44.  
  45.     subi.w    #16,d1
  46.     addi.w    #16,d2
  47.     addq.w    #1,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.         
  53.     addi.w    #16,d1
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     subi.w    #16,d1
  61.     addi.w    #16,d2
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     addi.w    #16,d1
  69.     addq.w    #1,d7
  70.     move.w    d1,(a6)+
  71.     move.w    d2,(a6)+
  72.     move.w    d7,(a6)+
  73.     move.w    #$0003,(a6)+
  74.  
  75.     rts
  76. @@:
  77.     addi.w    #$4001,d7
  78.     move.w    d1,(a6)+
  79.     move.w    d2,(a6)+
  80.     move.w    d7,(a6)+
  81.     move.w    #$0003,(a6)+
  82.  
  83.     addi.w    #16,d1
  84.     subq.w    #1,d7
  85.     move.w    d1,(a6)+
  86.     move.w    d2,(a6)+
  87.     move.w    d7,(a6)+
  88.     move.w    #$0003,(a6)+
  89.  
  90.     subi.w    #16,d1
  91.     addi.w    #16,d2
  92.     addq.w    #3,d7
  93.     move.w    d1,(a6)+
  94.     move.w    d2,(a6)+
  95.     move.w    d7,(a6)+
  96.     move.w    #$0003,(a6)+
  97.  
  98.     addi.w    #16,d1
  99.     subq.w    #1,d7
  100.     move.w    d1,(a6)+
  101.     move.w    d2,(a6)+
  102.     move.w    d7,(a6)+
  103.     move.w    #$0003,(a6)+
  104.  
  105.     subi.w    #16,d1
  106.     addi.w    #16,d2
  107.     addq.w    #3,d7
  108.     move.w    d1,(a6)+
  109.     move.w    d2,(a6)+
  110.     move.w    d7,(a6)+
  111.     move.w    #$0003,(a6)+
  112.  
  113.     addi.w    #16,d1
  114.     subq.w    #1,d7
  115.     move.w    d1,(a6)+
  116.     move.w    d2,(a6)+
  117.     move.w    d7,(a6)+
  118.     move.w    #$0003,(a6)+
  119.  
  120.     subi.w    #16,d1
  121.     addi.w    #16,d2
  122.     addq.w    #3,d7
  123.     move.w    d1,(a6)+
  124.     move.w    d2,(a6)+
  125.     move.w    d7,(a6)+
  126.     move.w    #$0003,(a6)+
  127.  
  128.     addi.w    #16,d1
  129.     subq.w    #1,d7
  130.     move.w    d1,(a6)+
  131.     move.w    d2,(a6)+
  132.     move.w    d7,(a6)+
  133.     move.w    #$0003,(a6)+
  134.  
  135.     rts
  136. *---------------------------------------
  137. bob_for:
  138.     move.w    C_X(a1),d1
  139.     move.w    C_Y(a1),d2
  140.     subi.w    #8,d1
  141.     subi.w    #32,d2
  142.     tst.w    C_LR_F(a1)
  143.     bne    @f
  144.  
  145.     addi.w    #$0008,d7
  146.     move.w    d1,(a6)+
  147.     move.w    d2,(a6)+
  148.     move.w    d7,(a6)+
  149.     move.w    #$0003,(a6)+
  150.  
  151.     addi.w    #16,d2
  152.     addq.w    #1,d7
  153.     move.w    d1,(a6)+
  154.     move.w    d2,(a6)+
  155.     move.w    d7,(a6)+
  156.     move.w    #$0003,(a6)+
  157.  
  158.     addi.w    #16,d2
  159.     addq.w    #1,d7
  160.     move.w    d1,(a6)+
  161.     move.w    d2,(a6)+
  162.     move.w    d7,(a6)+
  163.     move.w    #$0003,(a6)+
  164.         
  165.     addi.w    #16,d2
  166.     addq.w    #1,d7
  167.     move.w    d1,(a6)+
  168.     move.w    d2,(a6)+
  169.     move.w    d7,(a6)+
  170.     move.w    #$0003,(a6)+
  171.  
  172.     rts
  173. @@:
  174.     addi.w    #$4008,d7
  175.     move.w    d1,(a6)+
  176.     move.w    d2,(a6)+
  177.     move.w    d7,(a6)+
  178.     move.w    #$0003,(a6)+
  179.  
  180.     addi.w    #16,d2
  181.     addq.w    #1,d7
  182.     move.w    d1,(a6)+
  183.     move.w    d2,(a6)+
  184.     move.w    d7,(a6)+
  185.     move.w    #$0003,(a6)+
  186.  
  187.     addi.w    #16,d2
  188.     addq.w    #1,d7
  189.     move.w    d1,(a6)+
  190.     move.w    d2,(a6)+
  191.     move.w    d7,(a6)+
  192.     move.w    #$0003,(a6)+
  193.  
  194.     addi.w    #16,d2
  195.     addq.w    #1,d7
  196.     move.w    d1,(a6)+
  197.     move.w    d2,(a6)+
  198.     move.w    d7,(a6)+
  199.     move.w    #$0003,(a6)+
  200.  
  201.     rts
  202. *---------------------------------------
  203. bob_back:
  204.     move.w    C_X(a1),d1
  205.     move.w    C_Y(a1),d2
  206.     subi.w    #8,d1
  207.     subi.w    #32,d2
  208.     tst.w    C_LR_F(a1)
  209.     bne    @f
  210.  
  211.     addi.w    #$000c,d7
  212.     move.w    d1,(a6)+
  213.     move.w    d2,(a6)+
  214.     move.w    d7,(a6)+
  215.     move.w    #$0003,(a6)+
  216.  
  217.     addi.w    #16,d2
  218.     addq.w    #1,d7
  219.     move.w    d1,(a6)+
  220.     move.w    d2,(a6)+
  221.     move.w    d7,(a6)+
  222.     move.w    #$0003,(a6)+
  223.  
  224.     addi.w    #16,d2
  225.     addq.w    #1,d7
  226.     move.w    d1,(a6)+
  227.     move.w    d2,(a6)+
  228.     move.w    d7,(a6)+
  229.     move.w    #$0003,(a6)+
  230.         
  231.     addi.w    #16,d2
  232.     addq.w    #1,d7
  233.     move.w    d1,(a6)+
  234.     move.w    d2,(a6)+
  235.     move.w    d7,(a6)+
  236.     move.w    #$0003,(a6)+
  237.  
  238.     rts
  239. @@:
  240.     addi.w    #$400c,d7
  241.     move.w    d1,(a6)+
  242.     move.w    d2,(a6)+
  243.     move.w    d7,(a6)+
  244.     move.w    #$0003,(a6)+
  245.  
  246.     addi.w    #16,d2
  247.     addq.w    #1,d7
  248.     move.w    d1,(a6)+
  249.     move.w    d2,(a6)+
  250.     move.w    d7,(a6)+
  251.     move.w    #$0003,(a6)+
  252.  
  253.     addi.w    #16,d2
  254.     addq.w    #1,d7
  255.     move.w    d1,(a6)+
  256.     move.w    d2,(a6)+
  257.     move.w    d7,(a6)+
  258.     move.w    #$0003,(a6)+
  259.  
  260.     addi.w    #16,d2
  261.     addq.w    #1,d7
  262.     move.w    d1,(a6)+
  263.     move.w    d2,(a6)+
  264.     move.w    d7,(a6)+
  265.     move.w    #$0003,(a6)+
  266.  
  267.     rts
  268. *---------------------------------------
  269. bo2_n:
  270.     move.w    C_X(a1),d1
  271.     move.w    C_Y(a1),d2
  272.     subi.w    #16,d1
  273.     subi.w    #32,d2
  274.     tst.w    C_LR_F(a1)
  275.     bne    @f
  276.  
  277.     addi.w    #$0055,d7
  278.     move.w    d1,(a6)+
  279.     move.w    d2,(a6)+
  280.     move.w    d7,(a6)+
  281.     move.w    #$0003,(a6)+
  282.  
  283.     addi.w    #16,d1
  284.     addq.w    #1,d7
  285.     move.w    d1,(a6)+
  286.     move.w    d2,(a6)+
  287.     move.w    d7,(a6)+
  288.     move.w    #$0003,(a6)+
  289.  
  290.     subi.w    #16,d1
  291.     addi.w    #16,d2
  292.     addq.w    #1,d7
  293.     move.w    d1,(a6)+
  294.     move.w    d2,(a6)+
  295.     move.w    d7,(a6)+
  296.     move.w    #$0003,(a6)+
  297.  
  298.     addi.w    #16,d1
  299.     addq.w    #1,d7
  300.     move.w    d1,(a6)+
  301.     move.w    d2,(a6)+
  302.     move.w    d7,(a6)+
  303.     move.w    #$0003,(a6)+
  304.  
  305.     subi.w    #16,d1
  306.     addi.w    #16,d2
  307.     addq.w    #1,d7
  308.     move.w    d1,(a6)+
  309.     move.w    d2,(a6)+
  310.     move.w    d7,(a6)+
  311.     move.w    #$0003,(a6)+
  312.         
  313.     addi.w    #16,d1
  314.     addq.w    #1,d7
  315.     move.w    d1,(a6)+
  316.     move.w    d2,(a6)+
  317.     move.w    d7,(a6)+
  318.     move.w    #$0003,(a6)+
  319.  
  320.     subi.w    #16,d1
  321.     addi.w    #16,d2
  322.     addq.w    #1,d7
  323.     move.w    d1,(a6)+
  324.     move.w    d2,(a6)+
  325.     move.w    d7,(a6)+
  326.     move.w    #$0003,(a6)+
  327.  
  328.     addi.w    #16,d1
  329.     addq.w    #1,d7
  330.     move.w    d1,(a6)+
  331.     move.w    d2,(a6)+
  332.     move.w    d7,(a6)+
  333.     move.w    #$0003,(a6)+
  334.  
  335.     rts
  336. @@:
  337.     addi.w    #$4056,d7
  338.     move.w    d1,(a6)+
  339.     move.w    d2,(a6)+
  340.     move.w    d7,(a6)+
  341.     move.w    #$0003,(a6)+
  342.  
  343.     addi.w    #16,d1
  344.     subq.w    #1,d7
  345.     move.w    d1,(a6)+
  346.     move.w    d2,(a6)+
  347.     move.w    d7,(a6)+
  348.     move.w    #$0003,(a6)+
  349.  
  350.     subi.w    #16,d1
  351.     addi.w    #16,d2
  352.     addq.w    #3,d7
  353.     move.w    d1,(a6)+
  354.     move.w    d2,(a6)+
  355.     move.w    d7,(a6)+
  356.     move.w    #$0003,(a6)+
  357.  
  358.     addi.w    #16,d1
  359.     subq.w    #1,d7
  360.     move.w    d1,(a6)+
  361.     move.w    d2,(a6)+
  362.     move.w    d7,(a6)+
  363.     move.w    #$0003,(a6)+
  364.  
  365.     subi.w    #16,d1
  366.     addi.w    #16,d2
  367.     addq.w    #3,d7
  368.     move.w    d1,(a6)+
  369.     move.w    d2,(a6)+
  370.     move.w    d7,(a6)+
  371.     move.w    #$0003,(a6)+
  372.  
  373.     addi.w    #16,d1
  374.     subq.w    #1,d7
  375.     move.w    d1,(a6)+
  376.     move.w    d2,(a6)+
  377.     move.w    d7,(a6)+
  378.     move.w    #$0003,(a6)+
  379.  
  380.     subi.w    #16,d1
  381.     addi.w    #16,d2
  382.     addq.w    #3,d7
  383.     move.w    d1,(a6)+
  384.     move.w    d2,(a6)+
  385.     move.w    d7,(a6)+
  386.     move.w    #$0003,(a6)+
  387.  
  388.     addi.w    #16,d1
  389.     subq.w    #1,d7
  390.     move.w    d1,(a6)+
  391.     move.w    d2,(a6)+
  392.     move.w    d7,(a6)+
  393.     move.w    #$0003,(a6)+
  394.  
  395.     rts
  396. *---------------------------------------
  397.